Chip 1998 January/CHIP Turkiye Ocak 1998.iso/OYUN/KYODAI/KYODAI.EXE/kyodai-mute.exe/0/RCDATA/TKYODAI/TKYODAI.txt

Text File | 1997-08-28 | 12KB | 508 lines

object Kyodai: TKyodai
  Left = 96
  Top = 36
  BorderStyle = bsSingle
  Caption = 'KYODAI 2.88'
  ClientHeight = 472
  ClientWidth = 628
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCloseQuery = FormCloseQuery
  OnCreate = Init
  OnMouseMove = FormMouseMove
  OnMouseUp = ButtonDown
  OnPaint = Peindre
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Dragons: TImage
    Left = 0
    Top = 40
    Width = 713
    Height = 428
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object Buffer: TImage
    Left = 128
    Top = 41
    Width = 800
    Height = 600
    Visible = False
  end
  object Kanji: TImage
    Left = 376
    Top = 424
    Width = 33
    Height = 25
    Enabled = False
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object MaskedTiles: TImage
    Left = 8
    Top = 208
    Width = 360
    Height = 250
    Enabled = False
    Visible = False
  end
  object Logo: TImage
    Left = 184
    Top = 184
    Width = 253
    Height = 128
    AutoSize = True
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object Mask: TImage
    Left = 8
    Top = 56
    Width = 360
    Height = 250
    AutoSize = True
    Picture.Data = {<image003.bmp>}
    Visible = False
  end
  object TileGfx: TImage
    Left = 16
    Top = 48
    Width = 360
    Height = 306
    AutoSize = True
    Picture.Data = {<image004.bmp>}
    Visible = False
  end
  object SmallBuf: TImage
    Left = 512
    Top = 80
    Width = 46
    Height = 56
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 628
    Height = 41
    Align = alTop
    BevelWidth = 4
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 8
      Width = 33
      Height = 25
      Hint = ' New game '
      AllowAllUp = True
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F777773FF333333008877700
        33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
        703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
        77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
        07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
        780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
        8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
        3333333773FFFF773333333330000033333333333777773333330000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = ResetGame
    end
    object SpeedButton2: TSpeedButton
      Left = 216
      Top = 8
      Width = 49
      Height = 25
      Caption = 'Pause'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      OnClick = PauseClick
    end
    object SpeedButton3: TSpeedButton
      Left = 48
      Top = 8
      Width = 49
      Height = 25
      Caption = 'Back'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      OnClick = Back
    end
    object SpeedButton4: TSpeedButton
      Left = 96
      Top = 8
      Width = 49
      Height = 25
      Caption = 'Hint'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      OnClick = Hint
    end
    object ExitButton: TSpeedButton
      Left = 568
      Top = 8
      Width = 49
      Height = 25
      Caption = 'Exit'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      OnClick = Exit1Click
    end
    object AboutButton: TSpeedButton
      Left = 512
      Top = 8
      Width = 49
      Height = 25
      Caption = 'About'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      OnClick = About1Click
    end
    object ShuffleButton: TSpeedButton
      Left = 152
      Top = 8
      Width = 57
      Height = 25
      Caption = 'Shuffle'
      Enabled = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      OnClick = Shuffle1Click
    end
    object HelpButton: TSpeedButton
      Left = 456
      Top = 8
      Width = 49
      Height = 25
      Caption = 'Help'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      OnClick = HelpClick
    end
    object PlayerPanel: TPanel
      Left = 272
      Top = 8
      Width = 73
      Height = 25
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnMouseUp = SwitchPanels
    end
    object PInput: TComboBox
      Left = 352
      Top = 8
      Width = 265
      Height = 25
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ItemHeight = 17
      MaxLength = 80
      ParentFont = False
      TabOrder = 1
      Text = '(Enter your message here)'
      Visible = False
      OnKeyUp = PInputKeyUp
    end
  end
  object LigneStatus: TStatusBar
    Left = 0
    Top = 447
    Width = 628
    Height = 25
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Panels = <
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = 'Tiles left'
        Width = 70
      end
      item
        Alignment = taCenter
        Width = 45
      end
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = 'Moves left'
        Width = 80
      end
      item
        Alignment = taCenter
        Width = 35
      end
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = 'Time'
        Width = 50
      end
      item
        Alignment = taCenter
        Width = 50
      end
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = 'Status'
        Width = 55
      end
      item
        Width = 50
      end>
    ParentFont = False
    SimplePanel = False
    SizeGrip = False
  end
  object MainMenu1: TMainMenu
    Left = 560
    Top = 424
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object New1: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = ResetGame
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 16451
        OnClick = Exit1Click
      end
    end
    object Play1: TMenuItem
      Caption = '&Play'
      ShortCut = 0
      object Undo1: TMenuItem
        Caption = '&Back'
        ShortCut = 16474
        OnClick = Back
      end
      object GiveHint: TMenuItem
        Caption = 'Hint'
        ShortCut = 16456
        OnClick = Hint
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Shuffle1: TMenuItem
        Caption = 'Shuffle'
        ShortCut = 16467
        OnClick = Shuffle1Click
      end
      object Restart1: TMenuItem
        Caption = 'Restart'
        ShortCut = 16466
        OnClick = Restart
      end
      object Stoppe: TMenuItem
        Caption = '&Stop'
        ShortCut = 16472
        OnClick = Stop
      end
      object Pause1: TMenuItem
        Caption = '&Pause'
        ShortCut = 16464
        OnClick = PauseClick
      end
    end
    object Options1: TMenuItem
      Caption = 'Options'
      ShortCut = 0
      object Config: TMenuItem
        Caption = '&Configuration'
        ShortCut = 0
        object WarnMe: TMenuItem
          Caption = 'Never warn about switches'
          ShortCut = 0
          OnClick = WarnMeClick
        end
        object StartupGame: TMenuItem
          Caption = 'Begin game at startup'
          ShortCut = 0
          OnClick = StartupGameClick
        end
      end
      object Changeplayername1: TMenuItem
        Caption = 'Player name'
        ShortCut = 0
        OnClick = ConfigClick
      end
      object Moves: TMenuItem
        Caption = 'Show &Moves'
        Checked = True
        ShortCut = 16461
        OnClick = NStatus
      end
      object Toolbar1: TMenuItem
        Caption = 'Show &Toolbar'
        Checked = True
        ShortCut = 16468
        OnClick = Toolbar1Click
      end
      object HightlightMode1: TMenuItem
        Caption = '&Highlight'
        ShortCut = 0
        object Highlight1: TMenuItem
          Caption = 'None'
          ShortCut = 0
          OnClick = Highlight1Click
        end
        object Highlight2: TMenuItem
          Caption = 'Rectangle'
          ShortCut = 0
          OnClick = Highlight2Click
        end
        object Highlight3: TMenuItem
          Caption = 'Color'
          ShortCut = 0
          OnClick = Highlight3Click
        end
      end
    end
    object Background1: TMenuItem
      Caption = '&Background'
      ShortCut = 0
      object Kanji1: TMenuItem
        Caption = '&Kanji (classic)'
        ShortCut = 0
        OnClick = Kanji1Click
      end
      object Dragons1: TMenuItem
        Caption = '&Dragons'
        Checked = True
        ShortCut = 0
        OnClick = Dragons1Click
      end
    end
    object Layout1: TMenuItem
      Caption = '&Layout'
      ShortCut = 0
      object Theater1: TMenuItem
        Caption = 'Theater (Very easy)'
        ShortCut = 0
        OnClick = SelectTheater
      end
      object Traditional1: TMenuItem
        Caption = 'Traditional (Normal)'
        Checked = True
        ShortCut = 0
        OnClick = SelectTraditional
      end
      object Dragon1: TMenuItem
        Caption = 'Dragon (Hard)'
        Enabled = False
        ShortCut = 0
        OnClick = SelectDragon
      end
      object BigHole1: TMenuItem
        Caption = 'Big Hole (Very hard)'
        ShortCut = 0
        OnClick = SelectBlock
      end
      object Beatle1: TMenuItem
        Caption = 'Beatle (Nightmare !)'
        ShortCut = 0
        OnClick = SelectBeatle
      end
    end
    object Tiles1: TMenuItem
      Caption = '&Tiles'
      ShortCut = 0
      object Wood1: TMenuItem
        Caption = 'Wood'
        Checked = True
        ShortCut = 0
        OnClick = TilesWood
      end
      object Blue1: TMenuItem
        Caption = 'Blue'
        ShortCut = 0
        OnClick = TilesBlue
      end
      object Red1: TMenuItem
        Caption = 'Red'
        ShortCut = 0
        OnClick = TilesRed
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 112
        OnClick = HelpClick
      end
      object Register1: TMenuItem
        Caption = 'Register'
        ShortCut = 0
        OnClick = Register1Click
      end
      object About1: TMenuItem
        Caption = '&About...'
        ShortCut = 16449
        OnClick = About1Click
      end
    end
  end
  object OnlyOne1: TOnlyOne
    Left = 592
    Top = 392
  end
  object Timer: TTimer
    Enabled = False
    Interval = 10
    OnTimer = Temps
    Left = 560
    Top = 392
  end
end